home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSSUB.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  910 b   |  38 lines
  1. ;This function moves all the specified entity type in a given
  2. ;selection set to a specified layer.
  3. ;
  4. ;Function name "EDSSUB.LSP" - Execution command "SUB"
  5. ;
  6. ;Written by Steve Brown and Christopher Conrad
  7. ;
  8. ;
  9. ;
  10. (defun c:sub ( )
  11.   (setq new (getstring "\nEnter new layer: "));input new
  12.   layer
  13.   (setq entype (getstring "\nEnter type of entity: "))
  14.   (setq a (ssget));       generate selection set 'a'
  15.   (setq le (sslength a)); count # of entities in selection set
  16.   (setq counter 0);       set counter=0
  17.   (while (<= counter (1- le))
  18.     (setq name (ssname a counter)); read 1rst entity name in ss 'a'
  19.     (setq b (entget name))
  20.     (setq d (cdr (assoc '0 b)))
  21.       (if (= d entype)
  22.         (progn (setq dot (assoc '8 b))
  23.                (setq b (subst (cons 8 new) dot b))
  24.                (entmod b)))
  25.     (setq counter (+ 1 counter))
  26.   )
  27.   (setq a nil)
  28.   (gc)
  29.   )
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.